home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / First Tutorial / Percdemo < prev    next >
Lisp/Scheme  |  1998-10-26  |  943b  |  36 lines
  1. (setq symbols '(a b c d e f g))
  2.  
  3. (def-rhythm
  4. ;   Bars               1               2   
  5. ;                      |---|---|---|---|    fill pattern
  6.     perc1 '1/16       "-- -- --- ---- -"    (q); bongo h
  7.     perc2 '1/16       " --  -- ---  ---"    (r); bongo l
  8.     perc3 '1/16       "-  --  --  --  -"    (z); cabasa
  9.     perc4 '1/16       "  -   -   -   - "    (p); cowbell
  10.     bass  '1/8        "-- --- -  -- ---"    symbols
  11. )
  12.  
  13. (setq tonals (activate-tonality (blues1 c 2) (chromatic c 3)))
  14.  
  15. (def-channel
  16.     perc1 10
  17.     perc2 10
  18.     perc3 10
  19.     perc4 10
  20.     bass 1
  21. )
  22.  
  23. (midiport :printer)
  24.  
  25. (def-tempo 120)
  26.  
  27. (compile-song-p "ccl;output:" 1/8 "percdemo"
  28. ;                      |---|---|---|---|
  29.     changes tonals    ".  ..  ..  ..   "
  30.     perc1   mt-32     "-   ----  ---- -"
  31.     perc2   mt-32     " -  ----  ---- -"
  32.     perc3   mt-32     "  -   ------ ---"
  33.     perc4   mt-32     "   -    --------"
  34.     bass    changes   "-------   ------"
  35. )
  36.